home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / _time / time5 < prev   
Unknown  |  1992-09-11  |  10.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 09 25 20 ef 32 33 | 2c 34 38 2c 36 30 2c 33 |...% .23|,48,60,3|
|00000010| 36 2c 31 30 32 2c 31 30 | 32 2c 31 30 32 2c 33 36 |6,102,10|2,102,36|
|00000020| 2c 36 30 2c 30 0d 00 1e | 1d 20 e7 20 4b 25 3d 31 |,60,0...|. . K%=1|
|00000030| 20 4b 42 24 3d 22 59 22 | 20 8b 20 4b 42 24 3d 22 | KB$="Y"| . KB$="|
|00000040| 20 22 0d 00 28 09 20 72 | 3d 52 25 0d 00 32 21 20 | "..(. r|=R%..2! |
|00000050| ef 32 33 2c 39 31 2c 33 | 32 2c 33 32 2c 33 34 2c |.23,91,3|2,32,34,|
|00000060| 33 38 2c 34 32 2c 31 35 | 2c 32 2c 30 0d 00 3c 24 |38,42,15|,2,0..<$|
|00000070| 20 f4 2a 2a 2a 2a 22 54 | 49 4d 45 35 20 62 79 20 | .****"T|IME5 by |
|00000080| 50 61 75 6c 20 57 61 72 | 6e 65 72 22 2a 2a 2a 2a |Paul War|ner"****|
|00000090| 0d 00 46 2f 20 f4 2a 2a | 2a 2a 22 4d 41 49 44 45 |..F/ .**|**"MAIDE|
|000000a0| 4e 20 43 41 53 54 4c 45 | 20 53 43 48 4f 4f 4c 3c |N CASTLE| SCHOOL<|
|000000b0| 20 44 4f 52 43 48 45 53 | 54 45 52 2a 2a 2a 2a 0d | DORCHES|TER****.|
|000000c0| 00 50 25 20 f4 2a 2a 2a | 2a 41 52 43 48 49 4d 45 |.P% .***|*ARCHIME|
|000000d0| 44 45 53 20 56 45 52 53 | 49 4f 4e 2a 2a 2a 2a 2a |DES VERS|ION*****|
|000000e0| 2a 2a 2a 2a 0d 00 5a 14 | 20 f4 2a 2a 2a 2a 22 31 |****..Z.| .****"1|
|000000f0| 39 39 30 22 2a 2a 2a 2a | 0d 00 64 0b 20 2a 46 58 |990"****|..d. *FX|
|00000100| 34 2c 31 0d 00 6e 08 68 | 6f 3d a3 0d 00 78 1e 20 |4,1..n.h|o=...x. |
|00000110| eb 37 3a 5a 3d b3 28 2d | 91 29 3a f2 74 3a 43 24 |.7:Z=.(-|.):.t:C$|
|00000120| 3d c4 31 38 2c 22 20 22 | 29 0d 00 82 71 20 de 20 |=.18," "|)...q . |
|00000130| 46 24 28 31 35 29 2c 51 | 24 28 31 35 2c 32 29 2c |F$(15),Q|$(15,2),|
|00000140| 6e 24 28 39 29 3a 57 3d | 30 3a 45 47 3d 30 3a 43 |n$(9):W=|0:EG=0:C|
|00000150| 4f 52 3d 30 3a 45 58 3d | 30 3a 65 72 72 3d 34 3a |OR=0:EX=|0:err=4:|
|00000160| 4f 4c 44 48 25 3d 30 3a | de 41 25 31 32 30 3a e3 |OLDH%=0:|.A%120:.|
|00000170| 49 25 3d 30 b8 31 31 39 | 3a 41 25 3f 49 25 3d 31 |I%=0.119|:A%?I%=1|
|00000180| 30 30 2a 28 31 2b b5 b2 | 28 49 25 2a 36 29 29 3a |00*(1+..|(I%*6)):|
|00000190| ed 3a f2 63 68 3a f2 64 | 65 66 0d 00 87 09 53 45 |.:.ch:.d|ef....SE|
|000001a0| 54 3d 36 0d 00 8c 0c 20 | 40 25 3d 26 39 30 31 0d |T=6.... |@%=&901.|
|000001b0| 00 96 0e eb 31 33 3a fb | 31 32 39 3a db 0d 00 a0 |....13:.|129:....|
|000001c0| 09 20 c8 97 20 ee 0d 00 | aa 0f 20 f2 6d 6f 75 73 |. .. ...|.. .mous|
|000001d0| 65 67 72 69 64 0d 00 b4 | 0a 20 f2 7a 3a f2 63 0d |egrid...|. .z:.c.|
|000001e0| 00 be 1b 20 e7 20 62 6f | 74 68 20 ef 20 32 38 2c |... . bo|th . 28,|
|000001f0| 32 32 2c 33 30 2c 33 39 | 2c 30 0d 00 d2 0c 20 2a |22,30,39|,0.... *|
|00000200| 46 58 32 31 2c 38 0d 00 | dc 1f 20 f2 68 3a f2 72 |FX21,8..|.. .h:.r|
|00000210| 3a e7 20 57 3d 65 72 72 | 20 eb 37 3a f2 74 68 3a |:. W=err| .7:.th:|
|00000220| e5 8d 74 56 40 0d 00 e6 | 19 20 e7 20 57 3e 30 20 |..tV@...|. . W>0 |
|00000230| 8c 20 f2 48 3a f2 4d 3a | e5 20 8d 64 5c 40 0d 00 |. .H:.M:|. .d\@..|
|00000240| f0 33 20 45 47 3d 45 47 | 2b 31 3a e7 20 45 47 3c |.3 EG=EG|+1:. EG<|
|00000250| 53 45 54 20 80 20 45 58 | 3c 31 33 20 8c 20 f2 48 |SET . EX|<13 . .H|
|00000260| 3a f2 4d 3a f2 7a 3a f2 | 62 6f 78 3a e5 8d 64 52 |:.M:.z:.|box:..dR|
|00000270| 40 0d 00 fa 1f 20 55 3d | a6 28 31 32 30 29 3a eb |@.... U=|.(120):.|
|00000280| 37 3a f2 73 3a e7 20 41 | 24 3d 22 59 22 8c 20 f9 |7:.s:. A|$="Y". .|
|00000290| 0d 01 04 07 20 eb 37 0d | 01 0e 0b 20 2a 46 58 34 |.... .7.|... *FX4|
|000002a0| 2c 30 0d 01 18 06 20 e0 | 0d 01 22 09 20 dd 20 f2 |,0.... .|..". . .|
|000002b0| 74 0d 01 23 15 20 f2 4f | 46 46 3a e3 20 4c 3d 31 |t..#. .O|FF:. L=1|
|000002c0| 30 20 b8 20 31 31 0d 01 | 24 48 20 f1 8a 31 33 2c |0 . 11..|$H ..13,|
|000002d0| 4c 29 bd 31 34 31 3b bd | 31 33 31 3b bd 31 35 37 |L).141;.|131;.157|
|000002e0| 3b bd 31 32 39 3b 22 54 | 20 69 20 6d 20 65 22 3b |;.129;"T| i m e";|
|000002f0| 8a 31 39 2c 4c 2b 34 29 | 3b bd 31 34 31 3b bd 31 |.19,L+4)|;.141;.1|
|00000300| 33 31 3b 22 53 65 74 20 | 35 22 3a ed 20 4c 0d 01 |31;"Set |5":. L..|
|00000310| 27 59 20 51 50 24 3d 22 | 31 2f 34 20 70 61 73 74 |'Y QP$="|1/4 past|
|00000320| 20 22 3a 51 54 24 3d 22 | 31 2f 34 20 74 6f 20 22 | ":QT$="|1/4 to "|
|00000330| 3a 51 4f 24 3d 22 20 6f | 27 63 6c 6f 63 6b 22 3a |:QO$=" o|'clock":|
|00000340| 51 48 24 3d 22 31 2f 32 | 20 70 61 73 74 20 22 3a |QH$="1/2| past ":|
|00000350| 4d 54 24 3d 22 20 74 6f | 20 22 3a 4d 50 24 3d 22 |MT$=" to| ":MP$="|
|00000360| 20 70 61 73 74 20 22 0d | 01 2c 05 e1 0d 01 36 45 | past ".|.,....6E|
|00000370| dd f2 68 3a e7 20 64 69 | 67 69 74 61 6c 20 8c 20 |..h:. di|gital . |
|00000380| f2 64 69 67 73 3a e1 20 | 8b 20 ef 34 3a f2 4f 46 |.digs:. |. .4:.OF|
|00000390| 46 3a f2 53 45 54 3a f2 | 48 3a f2 4d 3a f5 20 f2 |F:.SET:.|H:.M:. .|
|000003a0| 4d 3a 4c 25 3d 28 4c 25 | 2b 31 29 83 36 30 3a f2 |M:L%=(L%|+1).60:.|
|000003b0| 4d 0d 01 40 1f e7 4c 25 | 83 31 32 3d 30 f2 48 3a |M..@..L%|.12=0.H:|
|000003c0| 48 25 3d 28 48 25 2b 31 | 29 83 31 32 30 3a f2 48 |H%=(H%+1|).120:.H|
|000003d0| 0d 01 4a 1c f2 64 69 67 | 73 3a 53 53 3d a6 28 72 |..J..dig|s:SS=.(r|
|000003e0| 29 3a fd 20 4c 25 3d 4d | 49 4e 3a e1 0d 01 54 c7 |):. L%=M|IN:...T.|
|000003f0| 20 dd f2 4d 3a e7 20 64 | 69 67 69 74 61 6c 20 e1 | ..M:. d|igital .|
|00000400| 20 8b 20 ec 30 2c 30 3a | ec 31 2e 35 2a 28 41 25 | . .0,0:|.1.5*(A%|
|00000410| 3f 28 4c 25 2b 35 39 29 | 2d 31 30 30 29 2c 31 2e |?(L%+59)|-100),1.|
|00000420| 35 2a 28 41 25 3f 28 4c | 25 2b 31 34 29 2d 31 30 |5*(A%?(L|%+14)-10|
|00000430| 30 29 3a f0 38 36 2c 31 | 2e 35 2a 28 41 25 3f 28 |0):.86,1|.5*(A%?(|
|00000440| 4c 25 2b 31 29 2d 31 30 | 30 29 2c 31 2e 35 2a 28 |L%+1)-10|0),1.5*(|
|00000450| 41 25 3f 28 4c 25 2b 31 | 36 29 2d 31 30 30 29 3a |A%?(L%+1|6)-100):|
|00000460| f0 36 2c 31 2e 35 2a 28 | 41 25 3f 28 4c 25 2b 35 |.6,1.5*(|A%?(L%+5|
|00000470| 39 29 2d 31 30 30 29 2c | 31 2e 35 2a 28 41 25 3f |9)-100),|1.5*(A%?|
|00000480| 28 4c 25 2b 31 34 29 2d | 31 30 30 29 3a f0 38 36 |(L%+14)-|100):.86|
|00000490| 2c 33 2a 28 41 25 3f 4c | 25 2d 31 30 30 29 2c 33 |,3*(A%?L|%-100),3|
|000004a0| 2a 28 41 25 3f 28 4c 25 | 2b 31 35 29 2d 31 30 30 |*(A%?(L%|+15)-100|
|000004b0| 29 3a e1 0d 01 5e ac 20 | dd f2 48 3a e7 20 64 69 |):...^. |..H:. di|
|000004c0| 67 69 74 61 6c 20 e1 20 | 8b 20 47 25 3d 48 25 83 |gital . |. G%=H%.|
|000004d0| 36 30 3a ec 30 2c 30 3a | ec 41 25 3f 28 47 25 2b |60:.0,0:|.A%?(G%+|
|000004e0| 35 38 29 2d 31 30 30 2c | 41 25 3f 28 47 25 2b 31 |58)-100,|A%?(G%+1|
|000004f0| 33 29 2d 31 30 30 3a f0 | 38 36 2c 41 25 3f 28 47 |3)-100:.|86,A%?(G|
|00000500| 25 2b 32 29 2d 31 30 30 | 2c 41 25 3f 28 47 25 2b |%+2)-100|,A%?(G%+|
|00000510| 31 37 29 2d 31 30 30 3a | f0 36 2c 41 25 3f 28 47 |17)-100:|.6,A%?(G|
|00000520| 25 2b 35 38 29 2d 31 30 | 30 2c 41 25 3f 28 47 25 |%+58)-10|0,A%?(G%|
|00000530| 2b 31 33 29 2d 31 30 30 | 3a f0 38 36 2c 32 2a 28 |+13)-100|:.86,2*(|
|00000540| 41 25 3f 47 25 2d 31 30 | 30 29 2c 32 2a 28 41 25 |A%?G%-10|0),2*(A%|
|00000550| 3f 28 47 25 2b 31 35 29 | 2d 31 30 30 29 3a e1 0d |?(G%+15)|-100):..|
|00000560| 01 68 64 20 dd f2 7a 3a | f5 3a 48 25 3d b3 28 31 |.hd ..z:|.:H%=.(1|
|00000570| 31 29 3a fd 94 28 48 25 | 2d 4f 4c 44 48 25 29 3e |1):..(H%|-OLDH%)>|
|00000580| 34 3a 4c 25 3d b3 28 32 | 30 29 2b 32 30 3a 53 25 |4:L%=.(2|0)+20:S%|
|00000590| 3d b3 28 36 30 29 3a d1 | 3d 28 53 25 2b 28 4c 25 |=.(60):.|=(S%+(L%|
|000005a0| 2b 28 48 25 2a 36 30 29 | 29 2a 36 30 29 2a 31 30 |+(H%*60)|)*60)*10|
|000005b0| 30 3a 4d 49 4e 3d 35 2a | 28 b3 28 31 32 29 2d 31 |0:MIN=5*|(.(12)-1|
|000005c0| 29 3a e1 0d 01 72 27 20 | dd 20 f2 77 3a 57 3d 57 |):...r' |. .w:W=W|
|000005d0| 2b 31 3a f1 8a 30 2c 31 | 31 29 22 4e 4f 2e 2e 2e |+1:..0,1|1)"NO...|
|000005e0| 74 72 79 20 61 67 61 69 | 6e 22 0d 01 77 41 20 51 |try agai|n"..wA Q|
|000005f0| 24 28 45 58 2c 30 29 3d | c3 28 54 48 29 2b 22 2e |$(EX,0)=|.(TH)+".|
|00000600| 22 2b c3 28 4d 49 4e 29 | 3a e7 20 4d 49 4e 3c 39 |"+.(MIN)|:. MIN<9|
|00000610| 20 51 24 28 45 58 2c 30 | 29 3d c3 28 54 48 29 2b | Q$(EX,0|)=.(TH)+|
|00000620| 22 2e 30 22 2b c3 28 4d | 49 4e 29 0d 01 7c 5e 45 |".0"+.(M|IN)..|^E|
|00000630| 3d a6 28 32 30 30 29 3a | f1 8a 30 2c 31 31 29 22 |=.(200):|..0,11)"|
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 22 | | "|
|00000650| 3a e7 20 62 6f 74 68 20 | f1 8a 30 2c 33 29 22 20 |:. both |..0,3)" |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 20 | | " |
|00000670| 8b 20 f1 8a 30 2c 36 29 | 22 20 20 20 20 20 20 20 |. ..0,6)|" |
|00000680| 20 20 20 20 20 20 20 20 | 22 0d 01 86 06 20 e1 0d | |".... ..|
|00000690| 01 90 53 20 dd 20 f2 72 | 3a ef 32 38 2c 32 32 2c |..S . .r|:.28,22,|
|000006a0| 33 30 2c 33 39 2c 30 3a | fb 31 33 3a fb 31 32 39 |30,39,0:|.13:.129|
|000006b0| c8 9c 30 3a f1 8a 30 2c | 31 29 22 57 68 61 74 27 |..0:..0,|1)"What'|
|000006c0| 73 20 74 68 65 20 74 69 | 6d 65 22 3a e3 20 55 3d |s the ti|me":. U=|
|000006d0| 31 20 b8 20 33 30 30 30 | 3a ed 3a 45 58 3d 45 58 |1 . 3000|:.:EX=EX|
|000006e0| 2b 31 0d 01 9a 0c 20 2a | 46 58 31 35 2c 30 0d 01 |+1.... *|FX15,0..|
|000006f0| a9 0e 20 e7 20 57 3d 65 | 72 72 20 e1 0d 01 ae 1a |.. . W=e|rr .....|
|00000700| 4f 4c 44 48 25 3d 48 25 | 3a e7 20 48 25 3e 36 34 |OLDH%=H%|:. H%>64|
|00000710| 20 48 25 3d 31 33 0d 01 | b8 14 e7 20 64 69 67 69 | H%=13..|... digi|
|00000720| 74 61 6c 20 8c 20 8d 64 | 4c 41 0d 01 bd 27 e7 20 |tal . .d|LA...'. |
|00000730| 48 25 3d 31 33 20 48 25 | 3d 31 20 8b 20 48 25 3d |H%=13 H%|=1 . H%=|
|00000740| 48 25 81 35 3a e7 20 48 | 25 3d 31 33 20 48 25 3d |H%.5:. H|%=13 H%=|
|00000750| 31 0d 01 cc 2a 20 e7 20 | 4d 49 4e 3c 39 20 4d 49 |1...* . |MIN<9 MI|
|00000760| 4e 24 3d 22 30 22 2b c3 | 28 4d 49 4e 29 20 8b 20 |N$="0"+.|(MIN) . |
|00000770| 4d 49 4e 24 3d c3 28 4d | 49 4e 29 0d 01 d6 39 46 |MIN$=.(M|IN)...9F|
|00000780| 24 28 45 58 29 3d c3 28 | 48 25 29 2b 22 2e 22 2b |$(EX)=.(|H%)+"."+|
|00000790| 4d 49 4e 24 3a e7 20 68 | 6f 20 8c 20 46 24 28 45 |MIN$:. h|o . F$(E|
|000007a0| 58 29 3d c3 28 48 25 2b | 31 32 29 2b 22 2e 22 2b |X)=.(H%+|12)+"."+|
|000007b0| 4d 49 4e 24 0d 01 db 22 | e7 20 68 6f 20 80 20 48 |MIN$..."|. ho . H|
|000007c0| 25 3d 31 32 20 46 24 28 | 45 58 29 3d 22 30 30 2e |%=12 F$(|EX)="00.|
|000007d0| 22 2b 4d 49 4e 24 0d 01 | e0 0c 20 f2 74 69 6d 65 |"+MIN$..|.. .time|
|000007e0| 69 6e 0d 01 e2 1b f1 8a | 30 2c 31 29 22 20 20 20 |in......|0,1)" |
|000007f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 0d 01 e5 | | "...|
|00000800| 0e 20 e7 20 57 3d 65 72 | 72 20 e1 0d 01 ea 21 20 |. . W=er|r ....! |
|00000810| e7 20 4d 49 4e 3e 33 30 | 20 48 25 3d 48 25 2b 31 |. MIN>30| H%=H%+1|
|00000820| 3a e7 20 48 25 3d 31 33 | 48 25 3d 31 0d 02 1c 1f |:. H%=13|H%=1....|
|00000830| 20 e7 20 48 25 3d 54 48 | 20 f2 79 20 8b 20 f2 77 | . H%=TH| .y . .w|
|00000840| 3a 48 25 3d 4f 4c 44 48 | 25 3a e1 0d 02 3a 0d 20 |:H%=OLDH|%:...:. |
|00000850| f1 8a 30 2c 31 29 43 24 | 0d 02 44 18 20 48 25 3d |..0,1)C$|..D. H%=|
|00000860| 4f 4c 44 48 25 3a 55 3d | a6 28 32 30 30 29 3a e1 |OLDH%:U=|.(200):.|
|00000870| 0d 02 4e 09 20 dd 20 f2 | 79 0d 02 53 37 20 e7 20 |..N. . .|y..S7 . |
|00000880| 4d 49 4e 3c 33 31 20 51 | 24 28 45 58 2c 31 29 3d |MIN<31 Q|$(EX,1)=|
|00000890| c3 28 54 48 29 2b 22 2e | 22 2b 4d 49 4e 24 3a e7 |.(TH)+".|"+MIN$:.|
|000008a0| 20 57 3d 30 20 8c 20 43 | 30 52 3d 43 30 52 2b 31 | W=0 . C|0R=C0R+1|
|000008b0| 0d 02 58 0c 20 2a 46 58 | 31 35 2c 30 0d 02 62 14 |..X. *FX|15,0..b.|
|000008c0| 20 e7 20 54 48 3c 32 20 | 54 48 3d 54 48 2b 31 32 | . TH<2 |TH=TH+12|
|000008d0| 0d 02 6c 3a e7 20 4d 49 | 4e 3e 33 30 20 51 24 28 |..l:. MI|N>30 Q$(|
|000008e0| 45 58 2c 31 29 3d c3 28 | 54 48 2d 31 29 2b 22 2e |EX,1)=.(|TH-1)+".|
|000008f0| 22 2b c3 28 4d 49 4e 29 | 3a e7 20 57 3d 30 20 8c |"+.(MIN)|:. W=0 .|
|00000900| 20 43 30 52 3d 43 30 52 | 2b 31 0d 02 76 21 20 f1 | C0R=C0R|+1..v! .|
|00000910| 8a 32 2c 31 31 29 22 56 | 65 72 79 20 67 6f 6f 64 |.2,11)"V|ery good|
|00000920| 20 22 3a 55 3d a6 28 32 | 30 30 29 0d 02 80 2a f5 | ":U=.(2|00)...*.|
|00000930| 3a c8 97 20 46 2c 47 2c | 48 3a fd 48 3d 30 3a f1 |:.. F,G,|H:.H=0:.|
|00000940| 8a 30 2c 6d 29 22 20 20 | 20 20 20 20 20 20 20 20 |.0,m)" | |
|00000950| 20 20 20 22 3a 0d 02 8a | 20 f1 8a 30 2c 31 31 29 | ":...| ..0,11)|
|00000960| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 3a |" | ":|
|00000970| 57 3d 30 3a e1 0d 02 94 | 79 20 dd f2 74 68 3a f1 |W=0:....|y ..th:.|
|00000980| 8a 30 2c 35 29 22 81 50 | 6c 65 61 73 65 20 61 73 |.0,5)".P|lease as|
|00000990| 6b 20 79 6f 75 72 20 54 | 65 61 63 68 65 72 20 66 |k your T|eacher f|
|000009a0| 6f 72 20 68 65 6c 70 22 | 3b 8a 35 2c 31 32 29 22 |or help"|;.5,12)"|
|000009b0| 82 49 20 77 69 6c 6c 20 | 77 61 69 74 22 27 27 27 |.I will |wait"'''|
|000009c0| 22 86 50 72 65 73 73 20 | 61 6e 79 20 6b 65 79 20 |".Press |any key |
|000009d0| 6f 6e 20 74 68 65 20 63 | 6f 6d 70 75 74 65 72 20 |on the c|omputer |
|000009e0| 74 6f 20 73 74 61 72 74 | 22 3a 41 24 3d be 0d 02 |to start|":A$=...|
|000009f0| 99 06 f2 78 0d 02 9e 4b | 20 f1 8a 34 2c 32 33 29 |...x...K| ..4,23)|
|00000a00| 22 86 50 72 65 73 73 20 | 73 70 61 63 65 20 62 61 |".Press |space ba|
|00000a10| 72 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 87 22 3a |r to con|tinue.":|
|00000a20| e7 20 4b 42 24 3d 22 59 | 22 20 f2 69 6e 20 8b 20 |. KB$="Y|" .in . |
|00000a30| 47 3d a5 3a 57 3d 30 3a | 43 4f 52 3d 30 3a e1 0d |G=.:W=0:|COR=0:..|
|00000a40| 02 a8 85 dd f2 78 3a ef | 32 36 2c 31 39 2c 31 2c |.....x:.|26,19,1,|
|00000a50| 33 2c 30 2c 30 2c 30 3a | db 3a f1 27 22 81 48 65 |3,0,0,0:|.:.'".He|
|00000a60| 72 65 20 69 73 20 61 20 | 6c 69 73 74 20 6f 66 20 |re is a |list of |
|00000a70| 72 65 73 75 6c 74 73 22 | 3b 8a 30 2c 33 29 22 82 |results"|;.0,3)".|
|00000a80| 4e 6f 2e 20 20 54 69 6d | 65 20 73 65 74 20 61 74 |No. Tim|e set at|
|00000a90| 20 20 20 20 20 20 50 75 | 70 69 6c 27 73 20 61 6e | Pu|pil's an|
|00000aa0| 73 77 65 72 73 22 3a f1 | 8a 32 30 2c 36 29 22 83 |swers":.|.20,6)".|
|00000ab0| 52 69 67 68 74 87 22 3b | 89 28 33 29 22 83 57 72 |Right.";|.(3)".Wr|
|00000ac0| 6f 6e 67 22 0d 02 b2 66 | 20 e3 20 53 55 4d 3d 31 |ong"...f| . SUM=1|
|00000ad0| b8 45 58 3a 4c 54 24 3d | 51 24 28 53 55 4d 2c 31 |.EX:LT$=|Q$(SUM,1|
|00000ae0| 29 3a 52 54 24 3d 51 24 | 28 53 55 4d 2c 30 29 3a |):RT$=Q$|(SUM,0):|
|00000af0| f1 8a 32 2c 36 2b 53 55 | 4d 29 3b 53 55 4d 3b 3a |..2,6+SU|M);SUM;:|
|00000b00| e7 20 a9 28 46 24 28 53 | 55 4d 29 29 3e 34 f1 8a |. .(F$(S|UM))>4..|
|00000b10| 37 29 3b 46 24 28 53 55 | 4d 29 3b 8b 20 f1 8a 38 |7);F$(SU|M);. ..8|
|00000b20| 29 3b 46 24 28 53 55 4d | 29 3b 0d 02 bc 35 20 e7 |);F$(SUM|);...5 .|
|00000b30| 20 4c 54 24 3d 22 22 80 | 20 a9 28 52 54 24 29 3e | LT$="".| .(RT$)>|
|00000b40| 34 20 f1 8a 32 37 29 3b | 52 54 24 20 8b 20 e7 20 |4 ..27);|RT$ . . |
|00000b50| 4c 54 24 3d 22 22 f1 8a | 32 38 29 3b 52 54 24 0d |LT$=""..|28);RT$.|
|00000b60| 02 c6 35 20 e7 20 52 54 | 24 3d 22 22 80 20 a9 28 |..5 . RT|$="". .(|
|00000b70| 4c 54 24 29 3e 34 20 f1 | 8a 31 38 29 3b 4c 54 24 |LT$)>4 .|.18);LT$|
|00000b80| 20 8b 20 e7 20 52 54 24 | 3d 22 22 f1 8a 31 39 29 | . . RT$|=""..19)|
|00000b90| 3b 4c 54 24 0d 02 d0 2c | 20 51 24 28 53 55 4d 2c |;LT$...,| Q$(SUM,|
|00000ba0| 31 29 3d 22 22 3a 51 24 | 28 53 55 4d 2c 30 29 3d |1)="":Q$|(SUM,0)=|
|00000bb0| 22 22 3a ed 20 53 55 4d | 3a 45 58 3d 30 3a e1 20 |"":. SUM|:EX=0:. |
|00000bc0| 0d 02 da 6b 20 dd f2 73 | 3a f1 27 27 22 85 53 45 |...k ..s|:.''".SE|
|00000bd0| 54 2e 2e 2e 4f 27 43 4c | 4f 43 4b 22 27 27 22 82 |T...O'CL|OCK"''".|
|00000be0| 54 68 61 74 20 69 73 20 | 74 68 65 20 65 6e 64 20 |That is |the end |
|00000bf0| 6f 66 20 74 68 65 20 73 | 65 74 22 27 27 27 27 27 |of the s|et"'''''|
|00000c00| 22 83 20 20 20 20 20 59 | 6f 75 20 67 6f 74 20 22 |". Y|ou got "|
|00000c10| 3b 43 4f 52 3b 22 83 20 | 72 69 67 68 74 20 2c 6f |;COR;". |right ,o|
|00000c20| 75 74 20 6f 66 20 22 3b | 53 45 54 0d 02 e4 08 c8 |ut of ";|SET.....|
|00000c30| 97 20 ee 0d 02 e9 06 f2 | 78 0d 02 ee 38 20 f1 27 |. ......|x...8 .'|
|00000c40| 27 22 83 4d 6f 72 65 20 | 71 75 65 73 74 69 6f 6e |'".More |question|
|00000c50| 73 3f 22 27 22 86 20 20 | 20 20 20 20 20 20 20 20 |s?"'". | |
|00000c60| 20 59 45 53 20 20 20 20 | 20 20 20 20 20 20 4e 30 | YES | N0|
|00000c70| 22 0d 02 f8 3b e7 20 4b | 42 24 3d 22 59 22 20 f2 |"...;. K|B$="Y" .|
|00000c80| 49 4e 50 55 54 20 8b 20 | f5 3a f2 67 6f 3a fd 62 |INPUT . |.:.go:.b|
|00000c90| 3d 34 3a e7 20 78 3c 36 | 30 30 20 8c 20 41 24 3d |=4:. x<6|00 . A$=|
|00000ca0| 22 59 22 20 8b 20 41 24 | 3d 22 4e 22 0d 03 02 06 |"Y" . A$|="N"....|
|00000cb0| 20 e1 0d 03 0c 1c 20 dd | f2 4f 46 46 20 ef 32 33 | ..... .|.OFF .23|
|00000cc0| 3b 38 32 30 32 3b 30 3b | 30 3b 30 3b 3a e1 0d 03 |;8202;0;|0;0;:...|
|00000cd0| 16 42 20 dd f2 53 45 54 | 20 54 25 3d 91 3a 53 25 |.B ..SET| T%=.:S%|
|00000ce0| 3d 28 54 25 81 31 30 30 | 29 83 36 30 3a 4c 25 3d |=(T%.100|).60:L%=|
|00000cf0| 28 54 25 81 36 30 30 30 | 29 83 36 30 3a 48 25 3d |(T%.6000|).60:H%=|
|00000d00| 28 54 25 81 37 32 30 30 | 30 29 83 31 32 30 3a e1 |(T%.7200|0).120:.|
|00000d10| 0d 03 20 68 20 dd f2 6f | 28 58 43 25 2c 59 43 25 |.. h ..o|(XC%,YC%|
|00000d20| 2c 52 25 2c 63 6f 6c 6f | 75 72 25 2c 6f 70 25 29 |,R%,colo|ur%,op%)|
|00000d30| 3a ea 20 43 49 52 58 25 | 2c 43 49 52 59 25 2c 63 |:. CIRX%|,CIRY%,c|
|00000d40| 69 72 78 25 2c 63 69 72 | 79 25 3a e6 6f 70 25 2c |irx%,cir|y%:.op%,|
|00000d50| 33 3a ef 32 39 2c 58 43 | 25 3b 59 43 25 3b 3a 63 |3:.29,XC|%;YC%;:c|
|00000d60| 69 72 79 25 3d 52 25 2f | b6 28 32 29 3a 63 69 72 |iry%=R%/|.(2):cir|
|00000d70| 78 25 3d 63 69 72 79 25 | 0d 03 2a 68 20 ec 20 63 |x%=ciry%|..*h . c|
|00000d80| 69 72 78 25 2c 63 69 72 | 79 25 3a ec 20 63 69 72 |irx%,cir|y%:. cir|
|00000d90| 78 25 2c 2d 63 69 72 79 | 25 3a f0 20 38 35 2c 2d |x%,-ciry|%:. 85,-|
|00000da0| 63 69 72 78 25 2c 63 69 | 72 79 25 3a ec 20 2d 63 |cirx%,ci|ry%:. -c|
|00000db0| 69 72 78 25 2c 63 69 72 | 79 25 2d 34 3a ec 20 2d |irx%,cir|y%-4:. -|
|00000dc0| 63 69 72 78 25 2c 2d 63 | 69 72 79 25 3a f0 20 38 |cirx%,-c|iry%:. 8|
|00000dd0| 35 2c 63 69 72 78 25 2d | 34 2c 2d 63 69 72 79 25 |5,cirx%-|4,-ciry%|
|00000de0| 0d 03 34 b4 20 e3 20 43 | 49 52 58 25 3d 63 69 72 |..4. . C|IRX%=cir|
|00000df0| 78 25 2b 34 20 b8 20 52 | 25 20 88 20 34 3a 43 49 |x%+4 . R|% . 4:CI|
|00000e00| 52 59 25 3d b6 28 52 25 | 2a 52 25 2d 43 49 52 58 |RY%=.(R%|*R%-CIRX|
|00000e10| 25 2a 43 49 52 58 25 29 | 3a ec 20 43 49 52 58 25 |%*CIRX%)|:. CIRX%|
|00000e20| 2c 43 49 52 59 25 3a df | 20 43 49 52 58 25 2c 2d |,CIRY%:.| CIRX%,-|
|00000e30| 43 49 52 59 25 3a ec 20 | 2d 43 49 52 58 25 2c 43 |CIRY%:. |-CIRX%,C|
|00000e40| 49 52 59 25 3a df 20 2d | 43 49 52 58 25 2c 2d 43 |IRY%:. -|CIRX%,-C|
|00000e50| 49 52 59 25 3a ec 20 43 | 49 52 59 25 2c 43 49 52 |IRY%:. C|IRY%,CIR|
|00000e60| 58 25 3a df 20 2d 43 49 | 52 59 25 2c 43 49 52 58 |X%:. -CI|RY%,CIRX|
|00000e70| 25 3a ec 20 43 49 52 59 | 25 2c 2d 43 49 52 58 25 |%:. CIRY|%,-CIRX%|
|00000e80| 3a df 20 2d 43 49 52 59 | 25 2c 2d 43 49 52 58 25 |:. -CIRY|%,-CIRX%|
|00000e90| 3a ed 3a e1 0d 03 3e 17 | 20 dd f2 63 3a e7 20 ac |:.:...>.| ..c:. .|
|00000ea0| 20 63 6c 6f 63 6b 20 f2 | 62 6f 78 0d 03 48 a9 20 | clock .|box..H. |
|00000eb0| e7 20 64 69 67 69 74 61 | 6c 20 8c 20 f2 62 6f 78 |. digita|l . .box|
|00000ec0| 3a e1 20 8b 20 ef 32 39 | 2c 34 36 30 3b 35 31 32 |:. . .29|,460;512|
|00000ed0| 3b 35 3a e6 30 2c 31 3a | 72 61 64 69 75 73 25 3d |;5:.0,1:|radius%=|
|00000ee0| 33 30 30 3a f2 6f 28 33 | 35 30 2c 35 30 30 2c 72 |300:.o(3|50,500,r|
|00000ef0| 61 64 69 75 73 25 2c 72 | 61 64 69 75 73 25 2f 32 |adius%,r|adius%/2|
|00000f00| 35 2b 31 2c 30 29 3a e6 | 30 2c 31 35 3a e3 49 25 |5+1,0):.|0,15:.I%|
|00000f10| 3d 31 b8 31 32 3a ec 20 | b5 b2 28 49 25 2a 33 30 |=1.12:. |..(I%*30|
|00000f20| 29 2a 72 61 64 69 75 73 | 25 2a 31 2e 31 2d 33 32 |)*radius|%*1.1-32|
|00000f30| 2d 31 36 2a 28 49 25 3c | 31 30 29 2c 9b b2 28 49 |-16*(I%<|10),..(I|
|00000f40| 25 2a 33 30 29 2a 72 61 | 64 69 75 73 25 2a 31 2e |%*30)*ra|dius%*1.|
|00000f50| 31 2b 31 36 0d 03 52 4c | 20 f1 3b 49 25 3b 3a 58 |1+16..RL| .;I%;:X|
|00000f60| 25 3d b5 b2 28 49 25 2a | 33 30 29 2a 72 61 64 69 |%=..(I%*|30)*radi|
|00000f70| 75 73 25 3a 59 25 3d 9b | b2 28 49 25 2a 33 30 29 |us%:Y%=.|.(I%*30)|
|00000f80| 2a 72 61 64 69 75 73 25 | 3a ec 58 25 2c 59 25 3a |*radius%|:.X%,Y%:|
|00000f90| df 58 25 2a 2e 39 2c 59 | 25 2a 2e 39 3a ed 3a e1 |.X%*.9,Y|%*.9:.:.|
|00000fa0| 0d 03 5c 09 20 dd f2 69 | 6e 0d 03 66 0c 20 2a 46 |..\. ..i|n..f. *F|
|00000fb0| 58 31 35 2c 30 0d 03 70 | 57 20 3f 26 46 45 36 32 |X15,0..p|W ?&FE62|
|00000fc0| 3d 30 3a 3f 26 46 45 36 | 42 3d 32 3a 3f 26 46 45 |=0:?&FE6|B=2:?&FE|
|00000fd0| 36 30 3d 30 3a f5 20 fd | 20 3f 26 46 45 36 44 3d |60=0:. .| ?&FE6D=|
|00000fe0| 31 36 3a 43 4b 3d 28 3f | 26 46 45 36 30 20 80 20 |16:CK=(?|&FE60 . |
|00000ff0| 31 32 37 29 3a 4b 52 3d | a8 28 43 4b 2f 31 36 29 |127):KR=|.(CK/16)|
|00001000| 3a 4b 43 3d 43 4b 2d 31 | 36 2a 4b 52 0d 03 7a 40 |:KC=CK-1|6*KR..z@|
|00001010| 20 e7 20 4b 43 3e 31 33 | 20 80 20 4b 52 3e 33 20 | . KC>13| . KR>3 |
|00001020| 41 24 3d 22 4e 22 3a 54 | 48 3d 30 3a e1 20 8b 20 |A$="N":T|H=0:. . |
|00001030| e7 20 4b 43 3e 31 33 20 | 80 20 4b 52 3c 34 20 41 |. KC>13 |. KR<4 A|
|00001040| 24 3d 22 59 22 3a 54 48 | 3d 30 3a e1 0d 03 84 29 |$="Y":TH|=0:....)|
|00001050| 20 e7 20 4b 43 3c 32 3a | 54 48 3d 30 3a e1 20 8b | . KC<2:|TH=0:. .|
|00001060| 20 e7 20 4b 52 3e 36 20 | 41 24 3d 22 20 22 3a 54 | . KR>6 |A$=" ":T|
|00001070| 48 3d 30 3a e1 0d 03 8e | 2f 20 54 48 3d a8 28 28 |H=0:....|/ TH=.((|
|00001080| 4b 43 2b 31 29 2f 33 29 | 2b 28 34 2a 28 a8 28 28 |KC+1)/3)|+(4*(.((|
|00001090| 4b 52 2b 31 29 2f 32 29 | 2d 31 29 29 3a 41 24 3d |KR+1)/2)|-1)):A$=|
|000010a0| 22 22 3a e1 0d 03 98 26 | 20 dd 20 f2 64 69 67 73 |"":....&| . .digs|
|000010b0| 3a e7 20 62 6f 74 68 20 | 8c 20 f2 64 3a e1 20 8b |:. both |. .d:. .|
|000010c0| 20 e7 20 63 6c 6f 63 6b | 3a e1 0d 03 a2 1c 20 e7 | . clock|:..... .|
|000010d0| 20 68 6f 20 64 68 25 3d | 48 25 2b 31 32 20 8b 20 | ho dh%=|H%+12 . |
|000010e0| 64 68 25 3d 48 25 0d 03 | ac 21 20 4c 25 3d 4c 25 |dh%=H%..|.! L%=L%|
|000010f0| 2d 31 35 3a e7 20 57 3e | 30 20 4c 25 3d 4f 4c 25 |-15:. W>|0 L%=OL%|
|00001100| 3a 48 25 3d 4f 48 25 0d | 03 b6 12 20 4f 4c 25 3d |:H%=OH%.|... OL%=|
|00001110| 4c 25 3a 4f 48 25 3d 48 | 25 0d 03 c0 19 20 ef 32 |L%:OH%=H|%.... .2|
|00001120| 36 2c 33 30 3a fb 31 35 | 3a fb 31 35 32 c8 9c 31 |6,30:.15|:.152..1|
|00001130| 39 32 0d 03 ca 26 20 e7 | 20 b3 28 35 29 3c 36 20 |92...& .| .(5)<6 |
|00001140| 80 20 68 6f 20 64 68 25 | 3d 48 25 2b 31 32 20 8b |. ho dh%|=H%+12 .|
|00001150| 20 64 68 25 3d 48 25 20 | 0d 03 d4 07 20 f5 20 0d | dh%=H% |.... . .|
|00001160| 03 de 09 20 f2 4f 46 46 | 0d 03 e8 2e 20 4c 25 3d |... .OFF|.... L%=|
|00001170| 4c 25 2b 31 3a e7 20 4c | 25 3d 36 30 20 4c 25 3d |L%+1:. L|%=60 L%=|
|00001180| 30 3a 48 25 3d 48 25 2b | 31 3a e7 20 48 25 3d 31 |0:H%=H%+|1:. H%=1|
|00001190| 33 20 48 25 3d 31 0d 03 | f2 1c 20 e7 20 68 6f 20 |3 H%=1..|.. . ho |
|000011a0| 64 68 25 3d 48 25 2b 31 | 32 20 8b 20 64 68 25 3d |dh%=H%+1|2 . dh%=|
|000011b0| 48 25 0d 03 fc 13 20 e7 | 20 64 68 25 3d 32 34 20 |H%.... .| dh%=24 |
|000011c0| 64 68 25 3d 30 0d 04 06 | 17 20 74 69 6d 65 3d 28 |dh%=0...|. time=(|
|000011d0| 64 68 25 2a 31 30 30 29 | 2b 4c 25 20 0d 04 10 10 |dh%*100)|+L% ....|
|000011e0| 20 f2 63 6f 6e 76 28 74 | 69 6d 65 29 0d 04 1a 0b | .conv(t|ime)....|
|000011f0| 20 41 3d a6 28 72 29 0d | 04 24 10 20 f1 8a 37 2c | A=.(r).|.$. ..7,|
|00001200| 31 35 29 6e 75 6d 24 0d | 04 2e 0d 20 fd 20 4c 25 |15)num$.|... . L%|
|00001210| 3d 4d 49 4e 0d 04 38 06 | 20 e1 0d 04 42 16 20 dd |=MIN..8.| ...B. .|
|00001220| f2 62 6f 78 3a e7 20 63 | 6c 6f 63 6b 20 8c 20 e1 |.box:. c|lock . .|
|00001230| 0d 04 4c 12 20 e7 20 62 | 6f 74 68 20 8c 20 f2 62 |..L. . b|oth . .b|
|00001240| 3a e1 0d 04 56 37 20 e6 | 30 2c 31 36 3a ec 31 32 |:...V7 .|0,16:.12|
|00001250| 32 2c 36 30 38 3a df 35 | 30 38 2c 36 30 38 3a df |2,608:.5|08,608:.|
|00001260| 35 30 38 2c 34 31 32 3a | df 31 32 32 2c 34 31 32 |508,412:|.122,412|
|00001270| 3a df 31 32 32 2c 36 30 | 38 0d 04 60 34 20 e6 30 |:.122,60|8..`4 .0|
|00001280| 2c 32 34 3a ec 31 32 36 | 2c 36 30 34 3a df 35 30 |,24:.126|,604:.50|
|00001290| 34 2c 36 30 34 3a f0 38 | 35 2c 31 32 36 2c 34 31 |4,604:.8|5,126,41|
|000012a0| 36 3a f0 38 35 2c 35 30 | 34 2c 34 31 36 0d 04 6a |6:.85,50|4,416..j|
|000012b0| 37 20 e6 30 2c 31 36 3a | ec 31 33 30 2c 36 30 30 |7 .0,16:|.130,600|
|000012c0| 3a df 35 30 30 2c 36 30 | 30 3a df 35 30 30 2c 34 |:.500,60|0:.500,4|
|000012d0| 32 30 3a df 31 33 30 2c | 34 32 30 3a df 31 33 30 |20:.130,|420:.130|
|000012e0| 2c 36 30 30 0d 04 74 31 | 20 ec 31 33 30 2c 36 30 |,600..t1| .130,60|
|000012f0| 30 3a df 35 30 30 2c 36 | 30 30 3a df 35 30 30 2c |0:.500,6|00:.500,|
|00001300| 34 32 30 3a df 31 33 30 | 2c 34 32 30 3a df 31 33 |420:.130|,420:.13|
|00001310| 30 2c 36 30 30 0d 04 7e | 06 20 e1 0d 04 88 0e dd |0,600..~|. ......|
|00001320| 20 f2 63 6f 6e 76 28 6e | 29 0d 04 92 13 6e 75 6d | .conv(n|)....num|
|00001330| 24 3d 22 22 3a 71 24 3d | c3 28 6e 29 0d 04 9c 25 |$="":q$=|.(n)...%|
|00001340| e7 20 a9 28 71 24 29 3c | 34 20 8c 20 f5 3a 71 24 |. .(q$)<|4 . .:q$|
|00001350| 3d 22 30 22 2b 71 24 3a | fd 20 a9 28 71 24 29 3d |="0"+q$:|. .(q$)=|
|00001360| 34 0d 04 a6 15 e3 20 64 | 69 67 69 74 3d 34 20 b8 |4..... d|igit=4 .|
|00001370| 20 31 20 88 2d 31 0d 04 | b0 25 6e 75 6d 24 3d 6e | 1 .-1..|.%num$=n|
|00001380| 24 28 bb 28 c1 71 24 2c | 64 69 67 69 74 2c 31 29 |$(.(.q$,|digit,1)|
|00001390| 29 29 2b bd 31 31 2b 6e | 75 6d 24 0d 04 ba 20 e7 |))+.11+n|um$... .|
|000013a0| 20 64 69 67 69 74 3d 33 | 20 6e 75 6d 24 3d 64 6f | digit=3| num$=do|
|000013b0| 74 24 2b bd 31 31 2b 6e | 75 6d 24 0d 04 c4 05 ed |t$+.11+n|um$.....|
|000013c0| 0d 04 ce 05 e1 0d 04 d8 | 0a dd 20 f2 64 65 66 0d |........|.. .def.|
|000013d0| 04 e2 0d 6d 24 3d bd 38 | 2b bd 31 30 0d 04 ec 16 |...m$=.8|+.10....|
|000013e0| 6e 24 28 31 29 3d bd 32 | 32 34 2b 6d 24 2b bd 32 |n$(1)=.2|24+m$+.2|
|000013f0| 32 35 0d 04 f6 16 6e 24 | 28 32 29 3d bd 32 32 36 |25....n$|(2)=.226|
|00001400| 2b 6d 24 2b bd 32 32 37 | 0d 05 00 16 6e 24 28 33 |+m$+.227|....n$(3|
|00001410| 29 3d bd 32 32 36 2b 6d | 24 2b bd 32 32 39 0d 05 |)=.226+m|$+.229..|
|00001420| 0a 16 6e 24 28 34 29 3d | bd 32 33 30 2b 6d 24 2b |..n$(4)=|.230+m$+|
|00001430| bd 32 33 31 0d 05 14 16 | 6e 24 28 35 29 3d bd 32 |.231....|n$(5)=.2|
|00001440| 33 32 2b 6d 24 2b bd 32 | 33 33 0d 05 1e 16 6e 24 |32+m$+.2|33....n$|
|00001450| 28 36 29 3d bd 32 33 34 | 2b 6d 24 2b bd 32 33 35 |(6)=.234|+m$+.235|
|00001460| 0d 05 28 16 6e 24 28 37 | 29 3d bd 32 33 36 2b 6d |..(.n$(7|)=.236+m|
|00001470| 24 2b bd 32 33 37 0d 05 | 32 16 6e 24 28 38 29 3d |$+.237..|2.n$(8)=|
|00001480| bd 32 34 30 2b 6d 24 2b | bd 32 33 35 0d 05 3c 16 |.240+m$+|.235..<.|
|00001490| 6e 24 28 39 29 3d bd 32 | 34 30 2b 6d 24 2b bd 32 |n$(9)=.2|40+m$+.2|
|000014a0| 33 31 0d 05 46 16 6e 24 | 28 30 29 3d bd 32 34 32 |31..F.n$|(0)=.242|
|000014b0| 2b 6d 24 2b bd 32 34 33 | 0d 05 50 15 64 6f 74 24 |+m$+.243|..P.dot$|
|000014c0| 3d bd 32 34 34 2b 6d 24 | 2b bd 32 34 35 0d 05 5a |=.244+m$|+.245..Z|
|000014d0| 05 e1 0d 05 64 08 20 dd | f2 64 0d 05 6e 12 20 fb |....d. .|.d..n. .|
|000014e0| 31 35 3a fb 31 35 32 c8 | 9c 31 39 32 0d 05 78 1c |15:.152.|.192..x.|
|000014f0| 20 64 68 25 3d 48 25 81 | 35 3a e7 20 64 68 25 3d | dh%=H%.|5:. dh%=|
|00001500| 31 33 20 64 68 25 3d 31 | 0d 05 82 23 20 e7 20 68 |13 dh%=1|...# . h|
|00001510| 6f 20 64 68 25 3d 64 68 | 25 2b 31 32 3a e7 20 64 |o dh%=dh|%+12:. d|
|00001520| 68 25 3d 32 34 20 64 68 | 25 3d 30 0d 05 8c 16 20 |h%=24 dh|%=0.... |
|00001530| 74 69 6d 65 3d 28 64 68 | 25 2a 31 30 30 29 2b 4c |time=(dh|%*100)+L|
|00001540| 25 0d 05 96 10 20 f2 63 | 6f 6e 76 28 74 69 6d 65 |%.... .c|onv(time|
|00001550| 29 0d 05 a0 0f 20 f1 8a | 35 2c 37 29 6e 75 6d 24 |).... ..|5,7)num$|
|00001560| 0d 05 b4 06 20 e1 0d 05 | be 08 20 dd f2 62 0d 05 |.... ...|.. ..b..|
|00001570| c8 39 20 e6 30 2c 31 36 | 3a ec 37 35 32 2c 38 32 |.9 .0,16|:.752,82|
|00001580| 38 3a df 31 31 33 38 2c | 38 32 38 3a df 31 31 33 |8:.1138,|828:.113|
|00001590| 38 2c 37 31 32 3a df 37 | 35 32 2c 37 31 32 3a df |8,712:.7|52,712:.|
|000015a0| 37 35 32 2c 38 32 38 0d | 05 d2 36 20 e6 30 2c 32 |752,828.|..6 .0,2|
|000015b0| 34 3a ec 37 35 36 2c 38 | 32 34 3a df 31 31 33 34 |4:.756,8|24:.1134|
|000015c0| 2c 38 32 34 3a f0 38 35 | 2c 37 35 36 2c 37 31 36 |,824:.85|,756,716|
|000015d0| 3a f0 38 35 2c 31 31 33 | 34 2c 37 31 36 0d 05 dc |:.85,113|4,716...|
|000015e0| 39 20 e6 30 2c 31 36 3a | ec 37 36 30 2c 38 32 30 |9 .0,16:|.760,820|
|000015f0| 3a df 31 31 33 30 2c 38 | 32 30 3a df 31 31 33 30 |:.1130,8|20:.1130|
|00001600| 2c 37 32 30 3a df 37 36 | 30 2c 37 32 30 3a df 37 |,720:.76|0,720:.7|
|00001610| 36 30 2c 38 32 30 0d 05 | e6 06 20 e1 0d 05 f0 0f |60,820..|.. .....|
|00001620| 20 f2 6d 6f 75 73 65 67 | 72 69 64 0d 06 2c 09 dd | .mouseg|rid..,..|
|00001630| a4 72 61 6e 0d 06 36 0d | 49 24 3d c0 47 24 2c 31 |.ran..6.|I$=.G$,1|
|00001640| 29 0d 06 40 13 47 24 3d | c2 47 24 2c a9 28 47 24 |)..@.G$=|.G$,.(G$|
|00001650| 29 2d 31 29 0d 06 4a 0d | 3d 97 28 49 24 29 2d 36 |)-1)..J.|=.(I$)-6|
|00001660| 34 0d 06 54 0d dd f2 73 | 68 75 66 66 6c 65 0d 06 |4..T...s|huffle..|
|00001670| 5e 16 4e 24 3d 22 41 42 | 43 44 45 46 47 48 49 4a |^.N$="AB|CDEFGHIJ|
|00001680| 4b 4c 22 20 0d 06 68 05 | f5 0d 06 72 1c 55 25 3d |KL" ..h.|...r.U%=|
|00001690| b3 28 a9 28 4e 24 29 29 | 3a 54 24 3d c1 4e 24 2c |.(.(N$))|:T$=.N$,|
|000016a0| 55 25 2c 31 29 0d 06 7c | 0c 47 24 3d 47 24 2b 54 |U%,1)..||.G$=G$+T|
|000016b0| 24 0d 06 86 2c 4e 24 3d | c0 4e 24 2c 55 25 2d 31 |$...,N$=|.N$,U%-1|
|000016c0| 29 2b c2 4e 24 2c 28 a9 | 28 4e 24 29 2d a9 28 c0 |)+.N$,(.|(N$)-.(.|
|000016d0| 4e 24 2c 55 25 2d 31 29 | 29 2d 31 29 29 0d 06 90 |N$,U%-1)|)-1))...|
|000016e0| 0e fd 20 a9 28 47 24 29 | 3d 31 32 0d 06 9a 05 e1 |.. .(G$)|=12.....|
|000016f0| 0d 06 a4 0f dd f2 6d 6f | 75 73 65 67 72 69 64 0d |......mo|usegrid.|
|00001700| 06 ae 1f 51 31 3d 37 38 | 30 3a 51 32 3d 31 31 37 |...Q1=78|0:Q2=117|
|00001710| 32 3a 57 31 3d 33 30 3a | 57 32 3d 33 31 38 0d 06 |2:W1=30:|W2=318..|
|00001720| b8 1d 41 57 3d 28 51 32 | 2d 51 31 29 2f 34 3a 55 |..AW=(Q2|-Q1)/4:U|
|00001730| 57 3d 28 57 32 2d 57 31 | 29 2f 33 0d 06 c2 40 e6 |W=(W2-W1|)/3...@.|
|00001740| 30 2c 31 36 3a ec 51 31 | 2d 38 2c 57 31 2d 38 3a |0,16:.Q1|-8,W1-8:|
|00001750| df 51 32 2b 38 2c 57 31 | 2d 38 3a df 51 32 2b 38 |.Q2+8,W1|-8:.Q2+8|
|00001760| 2c 57 32 2b 38 3a df 51 | 31 2d 38 2c 57 32 2b 38 |,W2+8:.Q|1-8,W2+8|
|00001770| 3a df 51 31 2d 38 2c 57 | 31 2d 38 0d 06 cc 3b e6 |:.Q1-8,W|1-8...;.|
|00001780| 30 2c 31 31 3a ec 51 31 | 2d 34 2c 57 31 2d 34 3a |0,11:.Q1|-4,W1-4:|
|00001790| df 51 32 2b 34 2c 57 31 | 2d 34 3a f0 38 35 2c 51 |.Q2+4,W1|-4:.85,Q|
|000017a0| 31 2d 34 2c 57 32 2b 34 | 3a f0 38 35 2c 51 32 2b |1-4,W2+4|:.85,Q2+|
|000017b0| 34 2c 57 32 2b 34 0d 06 | d6 2c e6 30 2c 31 36 3a |4,W2+4..|.,.0,16:|
|000017c0| ec 51 31 2c 57 31 3a df | 51 32 2c 57 31 3a df 51 |.Q1,W1:.|Q2,W1:.Q|
|000017d0| 32 2c 57 32 3a df 51 31 | 2c 57 32 3a df 51 31 2c |2,W2:.Q1|,W2:.Q1,|
|000017e0| 57 31 0d 06 e0 28 e3 20 | 41 3d 57 31 2b 55 57 20 |W1...(. |A=W1+UW |
|000017f0| b8 20 57 32 2d 55 57 20 | 88 20 55 57 3a ec 51 31 |. W2-UW |. UW:.Q1|
|00001800| 2c 41 3a df 51 32 2c 41 | 3a ed 0d 06 ea 28 e3 20 |,A:.Q2,A|:....(. |
|00001810| 41 3d 51 31 2b 41 57 20 | b8 20 51 32 2d 41 57 20 |A=Q1+AW |. Q2-AW |
|00001820| 88 20 41 57 3a ec 41 2c | 57 31 3a df 41 2c 57 32 |. AW:.A,|W1:.A,W2|
|00001830| 3a ed 0d 06 f4 20 51 31 | 3d 37 38 30 3a 51 32 3d |:.... Q1|=780:Q2=|
|00001840| 31 31 37 32 3a 57 31 3d | 33 31 38 3a 57 32 3d 36 |1172:W1=|318:W2=6|
|00001850| 30 38 0d 06 fe 1d 41 57 | 3d 28 51 32 2d 51 31 29 |08....AW|=(Q2-Q1)|
|00001860| 2f 32 3a 55 57 3d 28 57 | 32 2d 57 31 29 2f 33 0d |/2:UW=(W|2-W1)/3.|
|00001870| 07 08 40 e6 30 2c 31 36 | 3a ec 51 31 2d 38 2c 57 |..@.0,16|:.Q1-8,W|
|00001880| 31 2d 38 3a df 51 32 2b | 38 2c 57 31 2d 38 3a df |1-8:.Q2+|8,W1-8:.|
|00001890| 51 32 2b 38 2c 57 32 2b | 38 3a df 51 31 2d 38 2c |Q2+8,W2+|8:.Q1-8,|
|000018a0| 57 32 2b 38 3a df 51 31 | 2d 38 2c 57 31 2d 38 0d |W2+8:.Q1|-8,W1-8.|
|000018b0| 07 12 3b e6 30 2c 31 31 | 3a ec 51 31 2d 34 2c 57 |..;.0,11|:.Q1-4,W|
|000018c0| 31 2d 34 3a df 51 32 2b | 34 2c 57 31 2d 34 3a f0 |1-4:.Q2+|4,W1-4:.|
|000018d0| 38 35 2c 51 31 2d 34 2c | 57 32 2b 34 3a f0 38 35 |85,Q1-4,|W2+4:.85|
|000018e0| 2c 51 32 2b 34 2c 57 32 | 2b 34 0d 07 1c 2c e6 30 |,Q2+4,W2|+4...,.0|
|000018f0| 2c 31 36 3a ec 51 31 2c | 57 31 3a df 51 32 2c 57 |,16:.Q1,|W1:.Q2,W|
|00001900| 31 3a df 51 32 2c 57 32 | 3a df 51 31 2c 57 32 3a |1:.Q2,W2|:.Q1,W2:|
|00001910| df 51 31 2c 57 31 0d 07 | 26 28 e3 20 41 3d 57 31 |.Q1,W1..|&(. A=W1|
|00001920| 2b 55 57 20 b8 20 57 32 | 2d 55 57 20 88 20 55 57 |+UW . W2|-UW . UW|
|00001930| 3a ec 51 31 2c 41 3a df | 51 32 2c 41 3a ed 0d 07 |:.Q1,A:.|Q2,A:...|
|00001940| 30 2c e6 30 2c 31 36 3a | ec 51 31 2b 28 41 57 2f |0,.0,16:|.Q1+(AW/|
|00001950| 32 29 2c 57 31 3a df 51 | 31 2b 28 41 57 2f 32 29 |2),W1:.Q|1+(AW/2)|
|00001960| 2c 57 31 2b 28 32 2a 55 | 57 29 0d 07 3a 1a ec 51 |,W1+(2*U|W)..:..Q|
|00001970| 31 2b 41 57 2c 57 31 3a | df 51 31 2b 41 57 2c 57 |1+AW,W1:|.Q1+AW,W|
|00001980| 31 2b 55 57 0d 07 44 42 | e3 20 4a 3d 31 20 b8 20 |1+UW..DB|. J=1 . |
|00001990| 33 3a ec 51 31 2b 28 4a | 2a 28 41 57 2f 32 29 29 |3:.Q1+(J|*(AW/2))|
|000019a0| 2c 57 31 2b 28 32 2a 55 | 57 29 3a df 20 51 31 2b |,W1+(2*U|W):. Q1+|
|000019b0| 28 4a 2a 28 41 57 2f 32 | 29 29 2c 57 31 2b 28 33 |(J*(AW/2|)),W1+(3|
|000019c0| 2a 55 57 29 3a ed 0d 07 | 4e 10 c8 97 20 b8 20 39 |*UW):...|N... . 9|
|000019d0| 30 30 2c 33 30 30 0d 07 | 58 19 c8 97 20 c8 93 20 |00,300..|X... .. |
|000019e0| 51 31 2c 33 30 2c 32 2a | 41 57 2c 36 2a 55 57 0d |Q1,30,2*|AW,6*UW.|
|000019f0| 07 62 10 c8 97 20 b8 20 | 39 30 30 2c 33 30 30 0d |.b... . |900,300.|
|00001a00| 07 6c 06 e6 30 0d 07 76 | 09 f2 6e 75 6d 73 0d 07 |.l..0..v|..nums..|
|00001a10| 80 0a f2 77 6f 72 64 73 | 0d 07 bc 05 e1 0d 07 c6 |...words|........|
|00001a20| 0b dd f2 6d 6f 75 73 65 | 0d 07 d0 13 f5 3a c8 97 |...mouse|.....:..|
|00001a30| 20 78 2c 79 2c 62 3a fd | 62 3d 34 0d 07 da 2e 54 | x,y,b:.|b=4....T|
|00001a40| 48 3d 28 28 28 78 2d 34 | 33 30 29 81 20 39 38 29 |H=(((x-4|30). 98)|
|00001a50| 2b 31 29 2b 28 28 32 2d | 28 28 79 2b 34 37 30 29 |+1)+((2-|((y+470)|
|00001a60| 81 20 39 36 29 29 2a 34 | 29 0d 07 e4 37 e7 20 64 |. 96))*4|)...7. d|
|00001a70| 69 67 69 74 61 6c 20 54 | 48 3d 28 28 28 78 2d 37 |igital T|H=(((x-7|
|00001a80| 38 30 29 81 20 39 37 29 | 2b 31 29 2b 28 28 32 2d |80). 97)|+1)+((2-|
|00001a90| 28 28 79 2d 33 30 29 81 | 20 39 37 29 29 2a 34 29 |((y-30).| 97))*4)|
|00001aa0| 0d 07 ee 05 e1 0d 07 f8 | 08 dd f2 67 6f 0d 08 02 |........|...go...|
|00001ab0| 13 f5 3a c8 97 20 78 2c | 79 2c 62 3a fd 62 3d 30 |..:.. x,|y,b:.b=0|
|00001ac0| 0d 08 0c 0c 54 54 3d 30 | 3a 62 3d 30 0d 08 16 15 |....TT=0|:b=0....|
|00001ad0| f5 3a c8 97 20 78 2c 79 | 2c 62 3a fd 20 62 3c 3e |.:.. x,y|,b:. b<>|
|00001ae0| 30 0d 08 20 05 e1 0d 08 | 21 05 3a 0d 08 22 05 3a |0.. ....|!.:..".:|
|00001af0| 0d 08 2a 0c dd f2 74 69 | 6d 65 69 6e 0d 08 34 1a |..*...ti|mein..4.|
|00001b00| c8 97 20 c8 93 20 34 33 | 30 2c 2d 34 37 30 2c 33 |.. .. 43|0,-470,3|
|00001b10| 38 30 2c 35 37 30 0d 08 | 3e 26 e7 20 64 69 67 69 |80,570..|>&. digi|
|00001b20| 74 61 6c 20 c8 97 20 c8 | 93 20 51 31 2c 33 30 2c |tal .. .|. Q1,30,|
|00001b30| 32 2a 41 57 2d 31 30 2c | 36 2a 55 57 0d 08 48 0e |2*AW-10,|6*UW..H.|
|00001b40| 53 53 3d 30 3a 50 24 3d | 22 22 0d 08 52 14 e7 20 |SS=0:P$=|""..R.. |
|00001b50| 62 6f 74 68 20 6d 3d 33 | 20 8b 20 6d 3d 36 0d 08 |both m=3| . m=6..|
|00001b60| 5c 20 f4 27 27 27 52 45 | 50 45 41 54 3a 50 52 4f |\ .'''RE|PEAT:PRO|
|00001b70| 43 54 45 53 54 3a 55 4e | 54 49 4c 32 3d 31 0d 08 |CTEST:UN|TIL2=1..|
|00001b80| 66 20 f4 27 27 27 27 27 | 47 45 54 20 5b 20 5d 20 |f .'''''|GET [ ] |
|00001b90| 4f 52 20 48 4f 55 52 27 | 27 27 27 27 27 27 0d 08 |OR HOUR'|''''''..|
|00001ba0| 70 2a f5 3a f2 6d 6f 75 | 73 65 3a fd 54 48 3d 2d |p*.:.mou|se:.TH=-|
|00001bb0| 33 20 84 20 54 48 3d 2d | 32 20 84 20 54 48 3e 30 |3 . TH=-|2 . TH>0|
|00001bc0| 20 84 20 54 48 3c 2d 37 | 0d 08 75 08 4f 4b 3d a3 | . TH<-7|..u.OK=.|
|00001bd0| 0d 08 76 10 50 24 3d 22 | 51 75 61 72 74 65 72 22 |..v.P$="|Quarter"|
|00001be0| 0d 08 7a 2f e7 20 54 48 | 3c 2d 37 20 4a 3d 28 31 |..z/. TH|<-7 J=(1|
|00001bf0| 32 2b 54 48 29 2a 35 3a | 50 3d 33 3a 54 48 3d 2d |2+TH)*5:|P=3:TH=-|
|00001c00| 31 32 3a e7 20 4a 3e 31 | 30 20 4a 3d 4a 2b 35 0d |12:. J>1|0 J=J+5.|
|00001c10| 08 7f 1f 53 53 3d 4a 3a | e7 20 4d 49 4e 20 83 31 |...SS=J:|. MIN .1|
|00001c20| 35 3d 30 20 4f 4b 3d b9 | 3a e5 8d 74 44 48 0d 08 |5=0 OK=.|:..tDH..|
|00001c30| 80 22 e7 20 4d 49 4e 3e | 31 20 80 20 4d 49 4e 3c |.". MIN>|1 . MIN<|
|00001c40| 33 30 20 80 20 53 53 3d | 4d 49 4e 20 4f 4b 3d b9 |30 . SS=|MIN OK=.|
|00001c50| 0d 08 81 28 e7 20 4d 49 | 4e 3e 33 30 20 80 20 4d |...(. MI|N>30 . M|
|00001c60| 49 4e 3c 36 30 20 80 20 | 53 53 3d 28 36 30 2d 4d |IN<60 . |SS=(60-M|
|00001c70| 49 4e 29 20 4f 4b 3d b9 | 0d 08 84 33 e7 20 54 48 |IN) OK=.|...3. TH|
|00001c80| 3d 2d 33 20 f1 8a 31 2c | 6d 29 22 31 2f 34 22 3b |=-3 ..1,|m)"1/4";|
|00001c90| 3a 50 3d 31 3a e7 20 4d | 49 4e 3d 31 35 20 84 20 |:P=1:. M|IN=15 . |
|00001ca0| 4d 49 4e 3d 34 35 20 4f | 4b 3d b9 0d 08 8e 2a e7 |MIN=45 O|K=....*.|
|00001cb0| 20 54 48 3d 2d 32 20 f1 | 8a 31 2c 6d 29 22 31 2f | TH=-2 .|.1,m)"1/|
|00001cc0| 32 22 3b 3a 50 3d 32 3a | e7 20 4d 49 4e 3d 33 30 |2";:P=2:|. MIN=30|
|00001cd0| 20 4f 4b 3d b9 0d 08 98 | 1d e7 20 54 48 3e 30 20 | OK=....|.. TH>0 |
|00001ce0| f1 8a 31 2c 6d 29 54 48 | 3b 3a 50 3d 34 3a 4a 3d |..1,m)TH|;:P=4:J=|
|00001cf0| 54 48 0d 08 99 0e e7 20 | 50 3d 34 20 4f 4b 3d b9 |TH..... |P=4 OK=.|
|00001d00| 0d 08 9a 12 e7 20 50 3d | 33 20 f1 8a 31 2c 6d 29 |..... P=|3 ..1,m)|
|00001d10| 4a 3b 0d 08 9d 37 e7 20 | 50 3d 33 20 80 20 4f 4b |J;...7. |P=3 . OK|
|00001d20| 3d a3 20 51 24 28 45 58 | 2c 30 29 3d c3 28 53 53 |=. Q$(EX|,0)=.(SS|
|00001d30| 29 2b 22 20 6d 69 6e 73 | 3f 3f 22 3a 45 58 3d 45 |)+" mins|??":EX=E|
|00001d40| 58 2b 31 3a 57 3d 57 2b | 31 0d 08 9e 21 e7 20 4f |X+1:W=W+|1...!. O|
|00001d50| 4b 3d a3 20 f1 8a 31 32 | 2c 6d 29 22 3f 3f 3f 22 |K=. ..12|,m)"???"|
|00001d60| 3a ef 37 20 8b 20 8d 74 | 62 48 0d 08 9f 0d e7 20 |:.7 . .t|bH..... |
|00001d70| 57 3d 65 72 72 20 e1 0d | 08 a0 20 55 3d a6 28 31 |W=err ..|.. U=.(1|
|00001d80| 30 30 29 3a f1 8a 31 2c | 6d 2b 31 29 22 54 72 79 |00):..1,|m+1)"Try|
|00001d90| 20 61 67 61 69 6e 22 0d | 08 a1 40 55 3d a6 28 31 | again".|..@U=.(1|
|00001da0| 30 30 29 3a f1 8a 31 2c | 6d 29 22 20 20 20 20 20 |00):..1,|m)" |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 3b 8a 31 | | ";.1|
|00001dc0| 2c 6d 2b 31 29 22 20 20 | 20 20 20 20 20 20 20 20 |,m+1)" | |
|00001dd0| 22 3a e5 8d 44 48 48 0d | 08 a2 13 f5 3a c8 97 20 |":..DHH.|....:.. |
|00001de0| 78 2c 79 2c 62 3a fd 62 | 3d 30 0d 08 b6 1d f4 27 |x,y,b:.b|=0.....'|
|00001df0| 27 27 27 27 47 45 54 20 | 50 41 53 54 20 4f 52 20 |''''GET |PAST OR |
|00001e00| 54 4f 27 27 27 27 27 0d | 08 c0 0a f2 6d 6f 75 73 |TO'''''.|....mous|
|00001e10| 65 0d 08 c5 08 4f 4b 3d | a3 0d 08 ca 11 20 e7 20 |e....OK=|..... . |
|00001e20| 54 48 3d 30 20 54 48 3d | 2d 31 0d 08 d4 26 e7 20 |TH=0 TH=|-1...&. |
|00001e30| 50 3d 31 20 80 20 54 48 | 3d 2d 31 20 50 24 3d 51 |P=1 . TH|=-1 P$=Q|
|00001e40| 50 24 3a e7 20 4d 49 4e | 3d 31 35 20 4f 4b 3d b9 |P$:. MIN|=15 OK=.|
|00001e50| 0d 08 d9 54 e7 20 50 3d | 34 20 80 20 54 48 3d 2d |...T. P=|4 . TH=-|
|00001e60| 37 20 50 24 3d 4d 54 24 | 3a f1 8a 31 2c 6d 29 53 |7 P$=MT$|:..1,m)S|
|00001e70| 53 3b 4d 54 24 3b 22 20 | 20 20 20 22 3a 50 3d 33 |S;MT$;" | ":P=3|
|00001e80| 3a e7 20 4d 49 4e 3e 33 | 30 20 80 20 4d 49 4e 3c |:. MIN>3|0 . MIN<|
|00001e90| 3e 34 35 20 80 20 53 53 | 3d 36 30 2d 4d 49 4e 20 |>45 . SS|=60-MIN |
|00001ea0| 4f 4b 3d b9 0d 08 da 17 | e7 20 50 3d 34 20 80 20 |OK=.....|. P=4 . |
|00001eb0| 54 48 3d 2d 37 20 e5 8d | 54 78 49 0d 08 db 59 e7 |TH=-7 ..|TxI...Y.|
|00001ec0| 20 50 3d 34 20 80 20 54 | 48 3d 2d 31 20 50 24 3d | P=4 . T|H=-1 P$=|
|00001ed0| 4d 50 24 3a f1 8a 31 2c | 6d 29 53 53 3b 4d 50 24 |MP$:..1,|m)SS;MP$|
|00001ee0| 3b 22 20 20 20 20 22 3a | 50 3d 33 3a e7 20 4d 49 |;" ":|P=3:. MI|
|00001ef0| 4e 3c 33 30 20 80 20 4d | 49 4e 3c 3e 31 35 20 80 |N<30 . M|IN<>15 .|
|00001f00| 20 4d 49 4e 3e 30 20 80 | 20 4d 49 4e 3d 53 53 20 | MIN>0 .| MIN=SS |
|00001f10| 4f 4b 3d b9 0d 08 dc 17 | e7 20 50 3d 34 20 80 20 |OK=.....|. P=4 . |
|00001f20| 54 48 3d 2d 31 20 e5 8d | 54 78 49 0d 08 de 26 e7 |TH=-1 ..|TxI...&.|
|00001f30| 20 50 3d 31 20 80 20 54 | 48 3d 2d 37 20 50 24 3d | P=1 . T|H=-7 P$=|
|00001f40| 51 54 24 3a e7 20 4d 49 | 4e 3d 34 35 20 4f 4b 3d |QT$:. MI|N=45 OK=|
|00001f50| b9 0d 08 e8 26 e7 20 50 | 3d 32 20 80 20 54 48 3d |....&. P|=2 . TH=|
|00001f60| 2d 31 20 50 24 3d 51 48 | 24 3a e7 20 4d 49 4e 3d |-1 P$=QH|$:. MIN=|
|00001f70| 33 30 20 4f 4b 3d b9 0d | 08 ed 1d e7 20 50 3d 33 |30 OK=..|.... P=3|
|00001f80| 20 80 20 54 48 3c 2d 33 | 20 80 20 54 48 3e 2d 37 | . TH<-3| . TH>-7|
|00001f90| 20 50 3d 34 0d 08 f2 4a | e7 20 50 3d 33 20 80 20 | P=4...J|. P=3 . |
|00001fa0| 54 48 3d 2d 31 20 50 24 | 3d 4d 50 24 3a f1 8a 31 |TH=-1 P$|=MP$:..1|
|00001fb0| 2c 6d 29 4a 3b 4d 50 24 | 3b 22 20 20 20 20 22 3a |,m)J;MP$|;" ":|
|00001fc0| e7 4d 49 4e 3c 33 30 20 | 80 20 4d 49 4e 3c 3e 31 |.MIN<30 |. MIN<>1|
|00001fd0| 35 20 80 20 4d 49 4e 3e | 30 20 4f 4b 3d b9 0d 08 |5 . MIN>|0 OK=...|
|00001fe0| fc 43 e7 20 50 3d 33 20 | 80 20 54 48 3d 2d 37 20 |.C. P=3 |. TH=-7 |
|00001ff0| 50 24 3d 4d 54 24 3a f1 | 8a 31 2c 6d 29 4a 3b 4d |P$=MT$:.|.1,m)J;M|
|00002000| 54 24 3b 22 20 20 20 20 | 22 3a e7 20 4d 49 4e 3e |T$;" |":. MIN>|
|00002010| 33 30 20 80 20 4d 49 4e | 3c 3e 34 35 20 4f 4b 3d |30 . MIN|<>45 OK=|
|00002020| b9 0d 09 06 45 e7 20 50 | 3d 34 20 80 20 54 48 3c |....E. P|=4 . TH<|
|00002030| 2d 33 20 80 20 54 48 3e | 2d 37 20 50 24 3d 51 4f |-3 . TH>|-7 P$=QO|
|00002040| 24 3a f1 8a 31 2c 6d 29 | 4a 3b 50 24 3b 22 20 20 |$:..1,m)|J;P$;" |
|00002050| 20 20 22 3a e7 20 4d 49 | 4e 3d 30 20 4f 4b 3d b9 | ":. MI|N=0 OK=.|
|00002060| 3a e5 8d 74 52 49 0d 09 | 07 48 e7 20 50 3d 34 20 |:..tRI..|.H. P=4 |
|00002070| 80 20 54 48 3c 2d 33 20 | 80 20 54 48 3e 2d 37 20 |. TH<-3 |. TH>-7 |
|00002080| 51 24 28 45 58 2c 31 29 | 3d c3 28 4a 29 2b 22 2e |Q$(EX,1)|=.(J)+".|
|00002090| 30 30 22 3a 57 3d 57 2b | 31 3a 45 58 3d 45 58 2b |00":W=W+|1:EX=EX+|
|000020a0| 31 3a f1 8a 31 32 2c 6d | 29 22 3f 3f 3f 22 0d 09 |1:..12,m|)"???"..|
|000020b0| 15 17 e7 20 50 3d 33 20 | 80 20 4f 4b 3d b9 20 e5 |... P=3 |. OK=. .|
|000020c0| 20 8d 54 78 49 0d 09 1a | 18 e7 20 50 3d 33 20 50 | .TxI...|.. P=3 P|
|000020d0| 24 3d c3 28 4a 29 2b 22 | 20 22 2b 50 24 0d 09 24 |$=.(J)+"| "+P$..$|
|000020e0| 9d e7 20 50 3c 34 20 80 | 20 4f 4b 3d a3 3a 51 24 |.. P<4 .| OK=.:Q$|
|000020f0| 28 45 58 2c 30 29 3d 50 | 24 2b 22 3f 3f 22 3a 57 |(EX,0)=P|$+"??":W|
|00002100| 3d 57 2b 31 3a 45 58 3d | 45 58 2b 31 3a f1 8a 31 |=W+1:EX=|EX+1:..1|
|00002110| 2c 6d 29 50 24 3b 22 3f | 3f 3f 20 20 20 20 20 20 |,m)P$;"?|?? |
|00002120| 20 20 22 3a ef 37 3a 45 | 3d a6 28 31 30 30 29 3a | ":.7:E|=.(100):|
|00002130| f1 8a 31 2c 6d 2b 31 29 | 22 54 72 79 20 61 67 61 |..1,m+1)|"Try aga|
|00002140| 69 6e 22 3a 55 3d a6 28 | 31 30 30 29 3a f1 8a 31 |in":U=.(|100):..1|
|00002150| 2c 6d 29 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |,m)" | |
|00002160| 20 20 20 20 20 22 3b 8a | 31 2c 6d 2b 31 29 22 20 | ";.|1,m+1)" |
|00002170| 20 20 20 20 20 20 20 20 | 20 22 0d 09 38 05 3a 0d | | "..8.:.|
|00002180| 09 39 19 20 e7 20 4f 4b | 3d a3 20 80 20 57 3c 65 |.9. . OK|=. . W<e|
|00002190| 72 72 20 e5 8d 44 48 48 | 0d 09 3d 0e 20 e7 20 57 |rr ..DHH|..=. . W|
|000021a0| 3d 65 72 72 20 e1 0d 09 | 42 1d e7 20 50 3c 33 20 |=err ...|B.. P<3 |
|000021b0| f1 8a 31 2c 6d 29 50 24 | 3b 22 20 20 20 20 20 20 |..1,m)P$|;" |
|000021c0| 20 20 22 0d 09 4c 12 f5 | 3a c8 97 58 2c 59 2c 42 | "..L..|:..X,Y,B|
|000021d0| 3a fd 42 3d 30 0d 09 56 | 17 f4 22 22 22 22 47 45 |:.B=0..V|..""""GE|
|000021e0| 54 20 48 4f 55 52 27 27 | 27 27 27 27 0d 09 60 38 |T HOUR''|''''..`8|
|000021f0| c8 97 20 c8 93 20 28 51 | 31 2b 32 34 34 29 2d 28 |.. .. (Q|1+244)-(|
|00002200| 33 2a 41 57 29 2c 33 31 | 34 2d 28 34 2a 41 57 29 |3*AW),31|4-(4*AW)|
|00002210| 2c 28 32 2a 41 57 29 2d | 31 34 2c 28 33 2a 55 57 |,(2*AW)-|14,(3*UW|
|00002220| 29 2d 31 30 0d 09 6a 23 | e7 20 64 69 67 69 74 61 |)-10..j#|. digita|
|00002230| 6c 20 c8 97 20 c8 93 20 | 51 31 2c 33 30 2c 32 2a |l .. .. |Q1,30,2*|
|00002240| 41 57 2c 33 2a 55 57 0d | 09 74 0a f2 6d 6f 75 73 |AW,3*UW.|.t..mous|
|00002250| 65 0d 09 88 36 e7 20 50 | 3d 33 20 f1 8a 31 2c 6d |e...6. P|=3 ..1,m|
|00002260| 29 4a 3b 50 24 3b 54 48 | 3b 22 20 20 20 20 20 20 |)J;P$;TH|;" |
|00002270| 22 8b 20 f1 8a 31 2c 6d | 29 50 24 3b 54 48 3b 22 |". ..1,m|)P$;TH;"|
|00002280| 20 20 20 20 20 20 22 0d | 09 92 13 f5 3a c8 97 20 | ".|....:.. |
|00002290| 78 2c 79 2c 62 3a fd 62 | 3d 30 0d 09 a1 0e e7 20 |x,y,b:.b|=0..... |
|000022a0| 50 3d 34 20 54 48 3d 4a | 0d 09 a6 05 e1 0d 09 b0 |P=4 TH=J|........|
|000022b0| 0a dd f2 54 45 53 54 0d | 09 ba 13 f5 3a c8 97 20 |...TEST.|....:.. |
|000022c0| 78 2c 79 2c 62 3a fd 62 | 3d 34 0d 09 c4 1d e7 20 |x,y,b:.b|=4..... |
|000022d0| 64 69 67 69 74 61 6c 20 | 54 3d 28 28 78 2d 37 38 |digital |T=((x-78|
|000022e0| 30 29 81 20 39 37 29 0d | 09 ce 25 e7 20 64 69 67 |0). 97).|..%. dig|
|000022f0| 69 74 61 6c 20 48 3d 28 | 28 32 2d 28 28 79 2d 31 |ital H=(|(2-((y-1|
|00002300| 32 36 29 81 20 39 37 29 | 29 2a 34 29 0d 09 d8 3a |26). 97)|)*4)...:|
|00002310| e7 20 64 69 67 69 74 61 | 6c 20 54 48 3d 28 28 78 |. digita|l TH=((x|
|00002320| 2d 37 38 30 29 81 20 39 | 37 29 2b 28 28 32 2d 28 |-780). 9|7)+((2-(|
|00002330| 28 79 2d 31 32 36 29 81 | 20 39 37 29 29 2a 34 29 |(y-126).| 97))*4)|
|00002340| 3a e5 8d 64 76 49 0d 09 | e2 17 54 3d 28 28 28 78 |:..dvI..|..T=(((x|
|00002350| 2d 34 33 30 29 81 20 39 | 38 29 2b 31 29 0d 09 ec |-430). 9|8)+1)...|
|00002360| 1b 48 3d 28 28 32 2d 28 | 28 79 2b 33 37 34 29 81 |.H=((2-(|(y+374).|
|00002370| 20 39 36 29 29 2a 34 29 | 0d 09 f6 19 f1 8a 30 2c | 96))*4)|......0,|
|00002380| 31 31 29 22 58 3d 22 3b | 78 3b 22 20 59 3d 22 3b |11)"X=";|x;" Y=";|
|00002390| 79 0d 0a 00 19 f1 8a 30 | 2c 31 32 29 22 54 3d 22 |y......0|,12)"T="|
|000023a0| 3b 54 3b 22 20 48 3d 22 | 3b 48 0d 0a 0a 13 f5 3a |;T;" H="|;H.....:|
|000023b0| c8 97 20 78 2c 79 2c 62 | 3a fd 62 3d 30 0d 0a 14 |.. x,y,b|:.b=0...|
|000023c0| 05 e1 0d 0a 1e 13 f5 3a | c8 97 20 78 2c 79 2c 62 |.......:|.. x,y,b|
|000023d0| 3a fd 62 3d 34 0d 0a 28 | 17 51 3d 28 28 28 78 2d |:.b=4..(|.Q=(((x-|
|000023e0| 33 38 34 29 81 20 39 38 | 29 2d 33 29 0d 0a 32 15 |384). 98|)-3)..2.|
|000023f0| 57 3d 28 33 2d 28 79 20 | 81 20 31 31 30 29 29 2a |W=(3-(y |. 110))*|
|00002400| 34 0d 0a 3c 0a 54 48 3d | 51 2b 57 0d 0a 46 1a f1 |4..<.TH=|Q+W..F..|
|00002410| 8a 30 2c 38 29 22 41 43 | 3d 22 3b 51 3b 22 20 44 |.0,8)"AC|=";Q;" D|
|00002420| 4e 3d 22 3b 57 0d 0a 50 | 13 f5 3a c8 97 20 78 2c |N=";W..P|..:.. x,|
|00002430| 79 2c 62 3a fd 62 3d 30 | 0d 0a 5a 05 e1 0d 0a 64 |y,b:.b=0|..Z....d|
|00002440| 0d dd 20 f2 63 68 6f 69 | 63 65 0d 0a 6e 2e 51 31 |.. .choi|ce..n.Q1|
|00002450| 3d 31 32 3a 51 32 3d 31 | 32 36 38 3a 57 31 3d 31 |=12:Q2=1|268:W1=1|
|00002460| 32 3a 57 32 3d 32 30 30 | 3a 75 70 62 6f 78 3d 31 |2:W2=200|:upbox=1|
|00002470| 3a 61 63 62 6f 78 3d 33 | 0d 0a 78 25 41 57 3d 28 |:acbox=3|..x%AW=(|
|00002480| 51 32 2d 51 31 29 2f 61 | 63 62 6f 78 3a 55 57 3d |Q2-Q1)/a|cbox:UW=|
|00002490| 28 57 32 2d 57 31 29 2f | 75 70 62 6f 78 0d 0a 82 |(W2-W1)/|upbox...|
|000024a0| 3f e6 30 2c 31 3a ec 51 | 31 2d 38 2c 57 31 2d 38 |?.0,1:.Q|1-8,W1-8|
|000024b0| 3a df 51 32 2b 38 2c 57 | 31 2d 38 3a df 51 32 2b |:.Q2+8,W|1-8:.Q2+|
|000024c0| 38 2c 57 32 2b 38 3a df | 51 31 2d 38 2c 57 32 2b |8,W2+8:.|Q1-8,W2+|
|000024d0| 38 3a df 51 31 2d 38 2c | 57 31 2d 38 0d 0a 8c 3a |8:.Q1-8,|W1-8...:|
|000024e0| e6 30 2c 32 3a ec 51 31 | 2d 34 2c 57 31 2d 34 3a |.0,2:.Q1|-4,W1-4:|
|000024f0| df 51 32 2b 34 2c 57 31 | 2d 34 3a f0 38 35 2c 51 |.Q2+4,W1|-4:.85,Q|
|00002500| 31 2d 34 2c 57 32 2b 34 | 3a f0 38 35 2c 51 32 2b |1-4,W2+4|:.85,Q2+|
|00002510| 34 2c 57 32 2b 34 0d 0a | 96 2b e6 30 2c 31 3a ec |4,W2+4..|.+.0,1:.|
|00002520| 51 31 2c 57 31 3a df 51 | 32 2c 57 31 3a df 51 32 |Q1,W1:.Q|2,W1:.Q2|
|00002530| 2c 57 32 3a df 51 31 2c | 57 32 3a df 51 31 2c 57 |,W2:.Q1,|W2:.Q1,W|
|00002540| 31 0d 0a a0 28 e3 20 41 | 3d 57 31 2b 55 57 20 b8 |1...(. A|=W1+UW .|
|00002550| 20 57 32 2d 55 57 20 88 | 20 55 57 3a ec 51 31 2c | W2-UW .| UW:.Q1,|
|00002560| 41 3a df 51 32 2c 41 3a | ed 0d 0a aa 28 e3 20 41 |A:.Q2,A:|....(. A|
|00002570| 3d 51 31 2b 41 57 20 b8 | 20 51 32 2d 41 57 20 88 |=Q1+AW .| Q2-AW .|
|00002580| 20 41 57 3a ec 41 2c 57 | 31 3a df 41 2c 57 32 3a | AW:.A,W|1:.A,W2:|
|00002590| ed 0d 0a b4 1c c8 97 20 | b8 20 28 51 31 2b 51 32 |....... |. (Q1+Q2|
|000025a0| 29 2f 32 2c 28 57 31 2b | 57 32 29 2f 32 0d 0a be |)/2,(W1+|W2)/2...|
|000025b0| 1b c8 97 20 c8 93 20 51 | 31 2c 57 31 2c 51 32 2d |... .. Q|1,W1,Q2-|
|000025c0| 51 31 2c 57 32 2d 57 31 | 0d 0a c8 0b fb 30 3a fb |Q1,W2-W1|.....0:.|
|000025d0| 31 33 30 0d 0a d2 05 e1 | 0d 0a dc 46 dd 20 f2 63 |130.....|...F. .c|
|000025e0| 68 3a f1 8a 30 2c 31 39 | 29 22 82 44 6f 20 79 6f |h:..0,19|)".Do yo|
|000025f0| 75 20 77 61 6e 74 20 3a | 2d 2d 22 3b 8a 35 2c 32 |u want :|--";.5,2|
|00002600| 30 29 22 84 31 22 3b 8a | 32 30 2c 32 30 29 22 84 |0)".1";.|20,20)".|
|00002610| 32 22 3b 8a 33 35 2c 32 | 30 29 22 84 33 22 0d 0a |2";.35,2|0)".3"..|
|00002620| e6 3f f1 8a 30 2c 32 31 | 29 22 81 43 6c 6f 63 6b |.?..0,21|)".Clock|
|00002630| 20 46 61 63 65 22 3b 8a | 31 34 2c 32 31 29 22 82 | Face";.|14,21)".|
|00002640| 44 69 67 69 74 61 6c 20 | 43 6c 6f 63 6b 22 3b 8a |Digital |Clock";.|
|00002650| 33 33 2c 32 31 29 22 83 | 42 6f 74 68 22 0d 0a f0 |33,21)".|Both"...|
|00002660| 21 c8 97 20 ee 3a 63 6c | 6f 63 6b 3d a3 3a 64 69 |!.. .:cl|ock=.:di|
|00002670| 67 69 74 61 6c 3d a3 3a | 62 6f 74 68 3d a3 0d 0a |gital=.:|both=...|
|00002680| fa 12 f5 3a c8 97 78 2c | 79 2c 62 3a fd 62 3d 34 |...:..x,|y,b:.b=4|
|00002690| 0d 0b 04 40 e7 20 78 3c | 38 30 30 20 80 20 78 3e |...@. x<|800 . x>|
|000026a0| 34 30 31 20 64 69 67 69 | 74 61 6c 3d b9 20 8b 20 |401 digi|tal=. . |
|000026b0| e7 20 78 3c 34 30 30 20 | 63 6c 6f 63 6b 3d b9 20 |. x<400 |clock=. |
|000026c0| 8b 20 e7 20 78 3e 38 30 | 31 20 62 6f 74 68 3d b9 |. . x>80|1 both=.|
|000026d0| 0d 0b 0e 79 e7 20 63 6c | 6f 63 6b 3d b9 20 8c 20 |...y. cl|ock=. . |
|000026e0| e1 20 8b 20 f1 8a 30 2c | 31 38 29 22 86 20 20 20 |. . ..0,|18)". |
|000026f0| 20 20 44 6f 20 79 6f 75 | 20 77 61 6e 74 20 32 34 | Do you| want 24|
|00002700| 20 68 6f 75 72 20 63 6c | 6f 63 6b 3f 20 22 3b 8a | hour cl|ock? ";.|
|00002710| 30 2c 32 30 29 89 28 31 | 30 29 3b 22 59 45 53 22 |0,20).(1|0);"YES"|
|00002720| 3b 89 28 31 35 29 3b 22 | 4e 4f 22 3b 89 28 31 32 |;.(15);"|NO";.(12|
|00002730| 29 3b 8a 30 2c 32 31 29 | 89 28 33 39 29 3b 8a 30 |);.0,21)|.(39);.0|
|00002740| 2c 31 39 29 89 28 33 39 | 29 0d 0b 18 24 f5 3a f2 |,19).(39|)...$.:.|
|00002750| 67 6f 3a fd 62 3d 34 3a | e7 20 78 3c 36 30 30 20 |go:.b=4:|. x<600 |
|00002760| 8c 20 68 6f 3d b9 20 8b | 20 68 6f 3d a3 0d 0b 22 |. ho=. .| ho=..."|
|00002770| 05 e1 0d 0b 54 0a dd f2 | 6e 75 6d 73 0d 0b 5e 06 |....T...|nums..^.|
|00002780| ef 35 0d 0b 68 13 e3 20 | 72 6f 77 3d 33 20 b8 20 |.5..h.. |row=3 . |
|00002790| 31 20 88 2d 31 0d 0b 72 | 0f e3 20 63 6f 6c 3d 31 |1 .-1..r|.. col=1|
|000027a0| 20 b8 20 34 0d 0b 7c 19 | ec 20 a4 63 6f 6c 28 63 | . 4..|.|. .col(c|
|000027b0| 6f 6c 29 2c a4 72 6f 77 | 28 72 6f 77 29 0d 0b 86 |ol),.row|(row)...|
|000027c0| 15 f1 20 28 28 33 2d 72 | 6f 77 29 2a 34 29 2b 63 |.. ((3-r|ow)*4)+c|
|000027d0| 6f 6c 0d 0b 90 07 ed 3a | ed 0d 0b 9a 06 ef 34 0d |ol.....:|......4.|
|000027e0| 0b a4 05 e1 0d 0b ae 0d | dd a4 63 6f 6c 28 78 78 |........|..col(xx|
|000027f0| 29 0d 0b b8 17 3d 37 38 | 30 2b 28 28 78 78 2d 31 |)....=78|0+((xx-1|
|00002800| 29 2a 39 38 29 2b 32 30 | 0d 0b c2 0d dd a4 72 6f |)*98)+20|......ro|
|00002810| 77 28 79 79 29 0d 0b cc | 17 3d 31 32 36 2b 28 28 |w(yy)...|.=126+((|
|00002820| 79 79 2d 32 29 2a 39 36 | 29 2b 36 30 0d 0b d6 0b |yy-2)*96|)+60....|
|00002830| dd f2 77 6f 72 64 73 0d | 0b e0 06 ef 35 0d 0b ea |..words.|....5...|
|00002840| 1c ec 20 a4 63 6f 6c 28 | 31 29 2c a4 72 6f 77 28 |.. .col(|1),.row(|
|00002850| 34 29 3a f1 20 bd 31 38 | 38 0d 0b f4 1c ec 20 a4 |4):. .18|8..... .|
|00002860| 63 6f 6c 28 32 29 2c a4 | 72 6f 77 28 34 29 3a f1 |col(2),.|row(4):.|
|00002870| 20 bd 31 38 39 0d 0b fe | 1d ec 20 a4 63 6f 6c 28 | .189...|.. .col(|
|00002880| 33 29 2c a4 72 6f 77 28 | 34 29 3a f1 22 70 61 73 |3),.row(|4):."pas|
|00002890| 74 22 0d 0c 08 1b ec 20 | a4 63 6f 6c 28 31 29 2c |t"..... |.col(1),|
|000028a0| a4 72 6f 77 28 35 29 3a | f1 22 74 6f 22 0d 0c 12 |.row(5):|."to"...|
|000028b0| 20 ec 20 a4 63 6f 6c 28 | 32 29 2c a4 72 6f 77 28 | . .col(|2),.row(|
|000028c0| 35 29 3a f1 22 6f 27 63 | 6c 6f 63 6b 22 0d 0c 13 |5):."o'c|lock"...|
|000028d0| 1b ec 20 a4 63 6f 6c 28 | 31 29 2c a4 72 6f 77 28 |.. .col(|1),.row(|
|000028e0| 36 29 3a f1 22 20 35 22 | 0d 0c 14 1b ec 20 a4 63 |6):." 5"|..... .c|
|000028f0| 6f 6c 28 32 29 2c a4 72 | 6f 77 28 36 29 3a f1 22 |ol(2),.r|ow(6):."|
|00002900| 31 30 22 0d 0c 15 1b ec | 20 a4 63 6f 6c 28 33 29 |10".....| .col(3)|
|00002910| 2c a4 72 6f 77 28 36 29 | 3a f1 22 32 30 22 0d 0c |,.row(6)|:."20"..|
|00002920| 16 1b ec 20 a4 63 6f 6c | 28 34 29 2c a4 72 6f 77 |... .col|(4),.row|
|00002930| 28 36 29 3a f1 22 32 35 | 22 0d 0c 1c 06 ef 34 0d |(6):."25|".....4.|
|00002940| 0c 26 05 e1 0d ff | |.&.... | |
+--------+-------------------------+-------------------------+--------+--------+